﻿<!--#include virtual="/conn.inc"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>文件2.0上传(大附件)</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	line-height:22px;
}
-->
</style>
</head>
<%
Dim classid,aid,Page,sid,rs2,sql2,i
    		classid = Request("classid")
    		If classid = "" Then classid = 0
   		If Not IsNumeric(classid) Then classid = 0
    		classid = CLng(classid)
    		If classid < 0 Then classid = 0
    		aid = Request("aid")     
    		If aid = "" Then aid = 1
   		If Not IsNumeric(aid) Then aid = 1
    		aid = CLng(aid)
                if aid>10 then aid=10
    		Page = Request("page")     
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
                sid=trim(Request("sid"))
%>
<body>
上传添加新文章.<br/>----------<br/>
<form name="form2" method="post" action="addviewlist1.asp?sid=<%=sid%>&amp;page=<%=page%>&amp;action=login&amp;classid=<%=classid%>">
如果想同时输入N个数据，请设置数据的数目(最多10条)：<br/>
<input name="aid" type="text" value="1" id="nums2" size="10">
<input type="submit" name="Submit" value="提交">
</form>
<%
Response.Write "<form name='form1' method='post' action='addviewlist2.asp?sid=" & sid & "&amp;page=" & page & "&amp;action=login&amp;classid=" & classid & "' enctype='multipart/form-data' onsubmit='return check();' accept-charset='utf8'>"
%>
    	分类
	<%
	  set rs2=server.CreateObject("adodb.recordset")
	  sql2="select id,name from qingtian_class where Ext=7"
	  rs2.open sql2,conn,1,1
	  if not (rs2.bof and rs2.eof) then
	  For i=1 to rs2.RecordCount
		if i=1 then
		%><%if cint(classid)>0 then%>
		<select name="cid<%=Runtxt%>" value="<%=classid%>">
		<%else%>
		<select name="cid<%=Runtxt%>" value="<%=rs2("id")%>">
		<%end if%>
		<%
		end if
		%>
		<option value="<%=rs2("id")%>"><%=rs2("name")%></option>
		<%
	  Rs2.MoveNext
	  Next
	else
	%>
		<select name="cid<%=Runtxt%>" value="">
	<%

	  end if
	  Rs2.close
	  set rs2=nothing
	%>
	</select><br/>

	<%
i=1
for i=1 to aid
Response.Write "<input type='file' name='file1"&i&"' size='15' class='an'><br/>"
next
Response.Write "<input type='submit' name='Submit' value='添加上传' class='an'>"
Response.Write " <input type='reset'' name='button' class='as' value='重 置'>"
Response.Write "</form>"
Response.Write("<br/>----------<br/>")
%>
<a href='addviewlist.asp?classid=<%=classid%>&amp;page=<%=page%>&amp;sid=<%=sid%>'>直接输入文章</a><br/>
<a href='viewlist.asp?classid=<%=classid%>&amp;page=<%=page%>&amp;sid=<%=sid%>'>返回文章管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
</body>
</html>